home *** CD-ROM | disk | FTP | other *** search
/ BCI NET 2 / BCI NET 2.iso / archives / programming / amos / amoslist-0295.lzh / AMOSLIST / text0050.txt < prev    next >
Encoding:
Text File  |  1995-03-01  |  1.9 KB  |  78 lines
  1. Forwarded Message:
  2. From: MenTaT - !Productions <mentat@sefl.satelnet.org>
  3. Date: Tue, 31 Jan 1995 15:30:31 -0500 (EST)
  4. Subject: Re: Recursive programming (Re: Paint, et all.)
  5. To: "stud.ass." <bcollin@mpi.nl>
  6.  
  7. > 
  8. > > How does recursive programming work? Suppose I wanted to make a 
  9. > > MineSweeper clone, how would I let the computer show all the
  10. > > fields that aren't surrounded by a bomb whenever I hit a field
  11. > > which is not surrounded by a bomb? 
  12. > > Mind, I'm not trying to make a clone here, I just thought it's
  13. > > the best way to illustrate whatever I try to... well, er, try,
  14. > > really :)
  15. > > 
  16. > 
  17. > Recursive programming works by calling a procedure from itself.
  18. > i.e.:
  19. > Procedure Test[A]
  20. >   Inc A
  21. >   If A<10 Then Test[A]
  22. > End proc
  23. > 
  24. > I am not sure this example will work in Amos, though. I seem to 
  25. > remember that Amos has some limitations on recursion, for 
  26. instance 
  27. > that the procedure calls may not be nested more than 15 times, 
  28. > which makes it useless for most applications.
  29.  
  30. You need to do a Set Buffer (or something similar).  I wrote an 
  31. ATOMS 
  32. clone once, and occasionally it would get about 3 or 4 thousand 
  33. levels 
  34. deep. :)
  35.  
  36. > BTW, why would you want to use recursion for this Mines-clone. 
  37. You 
  38. > could just check the array, could you not?
  39.  
  40. You could, but recursion makes it MUCH easier...  Just do this :
  41.  
  42. Procedure SHOWMINES[X,Y]
  43.  
  44. If GRID(X-1,Y)=0
  45.   SHOWMINES[X-1,Y]
  46. End If
  47. If GRID(X,Y-1)=0
  48.   SHOWMINES[X,Y-1]
  49. End If
  50. If GRID(X+1,Y)=0
  51.   SHOWMINES[X+1,Y]
  52. End If
  53. If GRID(X,Y+1)=0
  54.   SHOWMINES[X,Y+1]
  55. End If
  56. GRID(X,Y)=5
  57.  
  58. End Proc
  59.  
  60. I'm assuming an empty unchecked square contains 0, and that an 
  61. empty 
  62. checked square contains 5.
  63.  
  64. Ain't recursion great?  :)
  65.  
  66. --
  67. GCS -d+ H+ s++:- g+ p? !au a- w+++            !Productions 1995
  68. v* C+++ UB+++A++++ P++ L++ E+ N+++       
  69. http://satelnet.org/~mentat/
  70. K+ !W--- M-- V po- Y+ t++ 5+ jx G?
  71. R tv++ D- B--- e+ u** h f r++ !n y+ "No matter where you go, there 
  72. you are."
  73.  
  74.  
  75.  
  76.  
  77.  
  78.